5 LW=8: REM LAUFWERKSNUMMER FUER KONFIGDATEI
10 PRINT"[147]     64'ER MESSLABOR  SETUP/PROGRAMM    "
20 PRINT"MIT DIESEM PROGRAMM KOENNEN SIE DAS"
30 PRINT"64'ER MESSLABOR[146] AN IHRE WUENSCHE"
40 PRINT"OPTIMAL ANPASSEN. BEFOLGEN SIE DAZU NUR"
50 PRINT"DIE ANWEISUNGEN, DIE AUF DEM BILDSCHIRM"
60 PRINT"ERSCHEINEN UND BEACHTEN SIE DIE HINWEISE"
70 PRINT"IN DER JEWEILIGEN 64'ER[146]-AUSGABE!"
75 PRINT""
80 PRINT"[145]WEITER -> TASTE DRUECKEN"
85 FORA=1TO200:NEXTA
90 GETA$:IF A$<>"" THEN 150
100 PRINT"[145]WEITER -> TASTE DRUECKEN"
110 FORA=1TO200:NEXTA
120 GOTO 80
150 PRINT"[147]     64'ER MESSLABOR  SETUP/PROGRAMM    "
160 PRINT"WIEVIELE ANALOGE MODULE HABEN SIE"
165 PRINT"INSTALLIERT (1-6)? ";
170 GET I$
180 IFI$=""THEN170
190 IFI$<"1"ORI$>"6"THENPRINT:PRINT"[145][145][145][145]";:GOTO160
200 PRINT""I$
210 N=VAL(I$)
215 FOR A = 1 TO 300: NEXT A
220 FOR M = 1 TO N
222 :  F=0
230 :  PRINT"[147]             SETUP MODUL "M;"[157]             "
240 :  PRINT"WELCHE GROESSE MISST MODUL ";M" ?"
250 :  PRINT"(TEMPERATUR, LUFTDRUCK USW.)"
255 :  PRINT"MAXIMAL 10 BUCHSTABEN"
256 :  L=10
260 :  GOSUB2000
261 :  G$(M)=I$
262 :  PRINT
270 :  PRINT"GEBEN SIE BITTE DIE EINHEIT AN!"
280 :  PRINT"(GRAD, VOLT USW.)"
290 :  PRINT"MAXIMAL 4 BUCHSTABEN"
300 :  L=4
310 :  GOSUB 2000
311 :  E$(M)=I$
315 :  PRINT"[147]             SETUP MODUL "M;"[157]             "
320 :  PRINT"AUF WELCHER BILDSCHIRMPOSITION"
330 :  PRINT"SOLL DIE ANZEIGE ERFOLGEN?"
340 :  PRINT""
350 :  FOR B = 1 TO 6
360 :     IF P(B)<>0THENPRINT"      [157][157][157]   [157][157][157]      [145][145]";:GOTO380
370 :     PRINT"      [157][157][157]"B"[157] [157][157][157]   [146]   [145][145]";
380 :     IF B = 3 THEN PRINT""
390 :  NEXT B
395 :  PRINT""
400 :  GETA$
410 :  IFA$=""THEN400
420 :  IFA$<"1"ORA$>"6"THEN400
422 :  F=0
430 :  FOR B = 1 TO 6
440 :    IF P(VAL(A$))<>0THEN F=1
450 :  NEXT B
460 :  IFF=1THEN400
470 :  PRINT""A$
480 :  P(VAL(A$))=1
490 :  B(M)=VAL(A$)
500 :  PRINT"[147]             SETUP MODUL "M;"[157]             "
510 :  PRINT"SOLLEN DIE DATEN AUF DISKETTE"
520 :  PRINT"ARCHIVIERT WERDEN (J/N)?"
530 :  GETA$
540 :  IFA$<>"J"ANDA$<>"N"THEN530
550 :  A(M)=(A$="J")
560 :  PRINT""A$
561 :  FORX=1TO200:NEXTX
570 :  IFA$="N"THEN650
580 :  PRINT"WELCHEN NAMEN SOLL DIE ARCHIV-"
590 :  PRINT"DATEI ERHALTEN (MAX 16 ZEICHEN)?"
600 :  PRINT"ACHTUNG, DATEIEN, DIE SCHON"
610 :  PRINT"UNTER DIESEM NAMEN EXISTIEREN,"
620 :  PRINT"KOENNEN ZERSTOERT WERDEN!"
630 :  L=16
635 :  I$=""
640 :  GOSUB2000
645 :  IFI$=""THENI$=G$(M)
650 :  N$(M)=I$
660 NEXT M
700 PRINT"[147]             SETUP MODUL              "
710 PRINT"LEGEN SIE DIE DISKETTE IN LAUFWERK"
720 PRINT""LW" EIN UND DRUECKEN EINE TASTE"
730 PRINT"ZUM SPEICHERN DER KONFIGURATIONS-"
740 PRINT"DATEI!"
750 GETA$
760 IFA$=""THEN750
770 OPEN1,LW,15,"I"
780 INPUT#1,F,F$,T,S
790 IFF<>0THENGOSUB3000
800 OPEN2,LW,2,"@:KONFIGMES,S,W"
805 PRINT#2,N
810 FOR M = 1 TO N
820 :  PRINT#2,G$(M)
830 :  PRINT#2,E$(M)
840 :  PRINT#2,B(M)
850 :  PRINT#2,A(M)
860 :  PRINT#2,N$(M)
870 NEXT M
880 CLOSE2
890 CLOSE1
900 PRINT"[147]GOOD BYE!"
1999 END
2000 X=0:I$="":A$=""
2001 GETA$
2010 IFA$=""THEN2001
2020 IF(A$<"A"ORA$>"Z")ANDA$<>"[148]"ANDA$<>CHR$(13)THEN2001
2021 X=X+1:IFX=L+1THENA$=CHR$(13)
2025 IFA$=CHR$(13)THENRETURN
2026 IFA$="[148]"THENI$=LEFT$(I$,LEN(I$)-1):PRINT"[157]";:X=X-2:GOTO2001
2030 I$=I$+A$
2040 PRINT""A$;
2050 GOTO2001